home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / xbin / make-fn < prev    next >
Text File  |  1989-09-03  |  321b  |  19 lines
  1. #!/bin/sh
  2. LISP=akcl
  3. if [ $# = 2 ] ; then LISP=$2 ; fi
  4.  
  5. TMP=/tmp/tmpd$$
  6. mkdir ${TMP}
  7. cp $@ ${TMP}
  8.  
  9. for v in $@ ; 
  10. do
  11. echo '(load (format nil "~a~a" si::*system-directory* "../cmpnew/collectfn"))' \
  12.    '(compiler::emit-fn t)'\
  13.    "(compile-file \"${TMP}/$v\" :o-file nil)" | ${LISP}
  14. done
  15.  
  16. mv ${TMP}/*.fn .
  17. rm -f -r ${TMP}
  18.  
  19.